home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00211.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  742 b   |  34 lines
  1. on REDWAVE
  2.   global GRIDV, GRIDH, GRIDY, TY, TH, NYC, DT, TURN, SOND, N
  3.   set N to 0
  4.   set TY to 0
  5.   set TH to 0
  6.   repeat while N = 0
  7.     set NYC to random(125)
  8.     if getAt(GRIDV, NYC) = 3 then
  9.       set TY to getAt(GRIDY, NYC)
  10.       set TH to getAt(GRIDH, NYC)
  11.       set N to 1
  12.     end if
  13.   end repeat
  14.   set DT to 2
  15.   set the locH of sprite 29 to TH
  16.   set the locV of sprite 29 to TY
  17.   repeat with N = 1 to 8
  18.     set the castNum of sprite 29 to 209
  19.     updateStage()
  20.     COUNTTIME()
  21.     set the castNum of sprite 29 to 210
  22.     updateStage()
  23.     COUNTTIME()
  24.   end repeat
  25.   if TURN = 1 then
  26.     set the castNum of sprite 29 to 4
  27.   end if
  28.   if TURN = 2 then
  29.     set the castNum of sprite 29 to 70
  30.   end if
  31.   updateStage()
  32.   REMOVESPRITE()
  33. end
  34.